home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_15_1987_Transactor_Publishing.d64
/
bt xmodem downld
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
39 lines
5 open5,2,0,chr$(6):dim i%(132)
10 printchr$(14)"[147] [194]ootstrap [216][205][207][196][197][205] [196]ownloader [214]er 1.0"
20 print" [215]ritten by [195]hristopher [196]unn
30 [153]" (NULL)se the <asc1> key to start the str$ownload"
100 [153]"[(NULL)erminal (NULL)ode]
110 get#5,a$:if st=8 goto170
120 a=asc(a$+chr$(0))and127
130 if a=8 then a=157:goto160
140 if a>=65 and a<=90 then a=a+32:goto160
150 if a>=97 and a<=122 then a=a-32
160 print chr$(a);
170 get a$:if a$="" goto110
180 a=asc(a$+chr$(0)):if a=20 then a=8:goto220
190 if a=133 goto 1000:rem do xmodem
200 if a>=193 and a<=218 then a=a-128:goto220
210 if a>=65 and a<=90 then a=a+32
220 print#5,chr$(a);
230 goto 110
1000 rem xmodem download
1010 ack$=chr$(6):nak$=chr$(21):eot$=chr$(4):b=1
1020 print"[147] [216]modem [196]ownloader.
1030 [153]"valnter file name for your disk:";:f$[178]"":[133] f$:[139] f$[178]"" [137] 100
1040 [153]"(NULL)orking! (NULL)lease standby"
1050 [159]8,8,8,f$[170]",p,w"
1060 [129]x[178]1[164]25:[161]#5,n$:[130]:q[178]0:[152]5,nak$
1070 [161]#5,c$:[139] st[178]8 [137] 1170
1080 q[178]q[170]1:i%(q)[178][198](c$[170][199](0)):[153]".";
1090 [139] q[178]1 [175] c$[178]eot$ [167] [160]8:[153]"str$(NULL)(NULL)val!":[152]5,ack$:[137]100
1100 z[178]0:[139] q[179]132 [137]1070
1110 [153]:[153]"lenhecking peeklock"
1120 ck%[178]0:[129]x[178]1[164]131:ck%[178](ck%[170]i%(x))[175]255:[130]
1130 [139] ck%[179][177]i%(132) [167] [153]"peekad lenhecksum!":[137]1060
1140 [129]x[178]4[164]131:[152]8,[199](i%(x));:[130]:[161]#5,n$
1150 [153]"peeklock "b" (NULL)(NULL).":b[178]b[170]1:[152]5,ack$:q[178]0
1160 [137]1070
1170 [143] check for time out
1180 z[178]z[170]1:[139] z[179]500 [137] 1070
1190 [153]"peeklock time out! (NULL)etrying....":z[178]0:[137]1060